Paso 1: Carga de datos

Procedemos a cargar el archivo de entrada y verificar la cantidad de registros

ar_properties <- read.csv(unz('ar_properties.zip', 'ar_properties.csv'), row.names = NULL, stringsAsFactors = TRUE, encoding = "UTF-8")
head(ar_properties)
nrow(ar_properties)
[1] 388891
LS0tDQp0aXRsZTogIlRyYWJham8gUHJhY3RpY28gMSINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCiMgUGFzbyAxOiBDYXJnYSBkZSBkYXRvcw0KDQoNClByb2NlZGVtb3MgYSBjYXJnYXIgZWwgYXJjaGl2byBkZSBlbnRyYWRhIHkgdmVyaWZpY2FyIGxhIGNhbnRpZGFkIGRlIHJlZ2lzdHJvcw0KDQpgYGB7cn0NCmFyX3Byb3BlcnRpZXMgPC0gcmVhZC5jc3YodW56KCdhcl9wcm9wZXJ0aWVzLnppcCcsICdhcl9wcm9wZXJ0aWVzLmNzdicpLCByb3cubmFtZXMgPSBOVUxMLCBzdHJpbmdzQXNGYWN0b3JzID0gVFJVRSwgZW5jb2RpbmcgPSAiVVRGLTgiKQ0KaGVhZChhcl9wcm9wZXJ0aWVzKQ0KbnJvdyhhcl9wcm9wZXJ0aWVzKQ0KYGBgDQoNCg==